home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assemblers / cas.lha / orig / cas.c next >
Encoding:
C/C++ Source or Header  |  1993-05-11  |  2.3 KB  |  74 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include <string.h>
  4.  
  5. #include "io.h"
  6. #include "op.h"
  7. #include "st.h"
  8. #include "link.h"
  9.  
  10. main(int AC, char **AV) {
  11.    int A; char **AP, *Hex; byte DoHex = 0, DoLink = 1;
  12.    if (AC < 2) {
  13.       fprintf(stderr, "Use: %s -c File... to assemble\n", AV[0]);
  14.       fprintf(stderr, "Use: %s [-o Output] File... to link\n", AV[0]);
  15.       exit(1);
  16.    }
  17.    if (AV[1][0] == '-') {
  18.       if (strcmp(AV[1], "-c") == 0) {
  19.          if (AC < 3)
  20.             fprintf(stderr, "Use: %s -c File ... to assemble\n", AV[0]),
  21.             exit(1);
  22.          DoLink = 0, Fs = AC - 2, AP = AV + 2;
  23.       } else if (strcmp(AV[1], "-o") == 0) {
  24.          if (AC < 4)
  25.             fprintf(stderr, "Use: %s -o Output File... to link\n", AV[0]),
  26.             exit(1);
  27.          DoHex = 1, Hex = CopyS(AV[2]), Fs = AC - 3, AP = AV + 3;
  28.       } else
  29.          fprintf(stderr, "Invalid option: %s\n", AV[1]), exit(1);
  30.    } else Fs = AC - 1, AP = AV + 1;
  31.    if (DoLink) FTab = (FileBuf)Allocate(Fs * sizeof *FTab); else FTab = 0;
  32.    OpInit();
  33.    for (A = 0; A < Fs; A++) {
  34.       char *S, *Src, *Obj, Ch;
  35.       Src = AP[A];
  36.       for (S = Src + strlen(Src) - 1; S > Src; S--)
  37.          if (*S == '.') break;
  38.       if (strcmp(S, ".o") == 0) Obj = CopyS(Src), Src = 0;
  39.       else {
  40.          if (S > Src) Ch = *S, *S = '\0';
  41.          Obj = (char *)Allocate(strlen(Src) + 3);
  42.          sprintf(Obj, "%s.o", Src);
  43.          if (S > Src) *S = Ch;
  44.       }
  45.       if (DoLink) FTab[A].Name = Obj;
  46.       if (Src != 0) {
  47.          fprintf(stderr, "assembling %s -> %s\n", Src, Obj);
  48.          OutF = OpenObj(Obj);
  49.          if (OutF == 0)
  50.             fprintf(stderr, "Cannot open object file for %s.\n", Src), exit(1);
  51.          Assemble(Src), Generate();
  52.       }
  53.    }
  54.    CHECK();
  55.    if (DoLink) {
  56.       if (!DoHex) {
  57.          char *S, *Obj = FTab[0].Name, Ch;
  58.          word L = strlen(Obj) + 3;
  59.          for (S = Obj + strlen(Obj) - 1; S > Obj; S--)
  60.             if (*S == '.') break;
  61.          if (S > Obj) Ch = *S, *S = '\0';
  62.          Hex = (char *)Allocate(strlen(Obj) + 5);
  63.          sprintf(Hex, "%s.hex", Obj);
  64.          if (S > Obj) *S = Ch;
  65.       }
  66.       fprintf(stderr, "linking");
  67.       for (A = 0; A < Fs; A++)
  68.          fputc(' ', stderr), fprintf(stderr, FTab[A].Name);
  69.       fprintf(stderr, " -> %s\n", Hex);
  70.       Link(Hex);
  71.    }
  72.    exit(0);
  73. }
  74.